RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


2¢ Teter et ot et es ee et ee ee ee ee oe oe ee es ee 2 2 2 ee ee 2 er ee et et ee OT 


| 
| 


a 
ee ed ee ed ee et ee 
ee ee ed ee ee 


B14 
x 
xX 
xX 
xX 


ne ed ed ee ee ee 
ee ee ee ee oe oe ero 
—— 


—— 
a 
-—e nw MMM 
ee nn MMWMnM 
| od ae nw nn nn 
ee nn nw own 
I I a I mw now own 
| dl el eee eel eee eed ee cee ee el ee el el nw now nw 
-—e nw nn nn 
-—e ow nn nn 
ee Munn nw 
Pe NNMM nn 
33333333333333 
aed aad ead ae ee cad aad wat ad ae ed eet 
— | ee ag oo 
22> Conk Conia 
om et ag ad ag nd ad Ot ad Og at ng 
pe | eh ad Pe a ng a td eg ed 
ae at Cela in” 
oe een! 
a a ee ae aee ae et et ee oe oe oe att 
paw ome Foe aie Foe eee Sree eee Joe ee eee Fee oem em ] 
ooooo0o°00o a | 
ss 44 
oO aad anf 
Oo a4 
oO | 
oO a ad 
a | 


*eF ILE®*1De*OUTTXT 


eee 


14 
outta 1B-Sep-1986 01:25:16 YAR] Bligg-32 40-742 Page (41 


MODULE OUTTXT ( : 
IDENT = 'V04-000' 
ZBLISS32C 


ADDRESSING MODE (EXTERNAL=LONG_ RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 
)= 


vv 


SOSSOSCOCOSSOOSOSOSOSOSOSOSOOSOSOOSOOOOOOOOOSOOOSOSOoO 
ne ee wee ele elmo lololololelolololelololo lo le lolololololo) 


WWANINWN AWAD POPONPONPININPINPYNIDN 2 2 2 OOO OS OM MP OOOO OOCOCOO 


BEGIN 


LRA ARERR AERA EERE A AAA 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYRARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED, 


ft hate tn actin ss FURNISHED UNDER A LICENSE te MAY BE USED AND COPIED 
:* ONL CE RMS OF LICE 


'® TRANSFERRED. 


't THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 

IT 


it DIGITAL ASSUMES NO RESPONS s FOR THE USE OR RELIABILITY OF ITS 


I Y 
'® SOFTWARE ON EQUIPMENT WHICH NOT SUPPLIED BY DIGITAL. 


* 
* 

* 

* 

* 

* 

* 

* 

® 

! * 
't OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* 

* 

t 

® 

* 

L * 
S * 
® 

* 

* 


Lee RRR RARER ERR EERE REET 
' 
!e¢ 


FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
i ABSTRACT: Outputs a single Line of text optionally centered. 
| 
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FS SWANWNAAWNNIAIAIDPONONUNONINOPONYDYD 3 OO ee es 


i] 
1 
: 
ENVIRONMENT: Transportable 
4 
' 


i AUTHOR: R.W. Friday CREATION DATE: April, 1979 


v04~000 Revision History 1b-te 300-1 3be 9}: 83; if RUNOFF SREsOUy TTX XT: oe ee (2 


; tk 1 ZSBTTL ‘Revision History’ 

; 6 0045 1! 

5 45 0044 1 | MODIFIED BY: 

; 0045 1 

5s. OF Boag 1 i 007 KFA00007 Alden 16-Mar-1983 

: re S98 4 : SCA is now initialized the same for both DSR and PLUS 

; 0049 1! 006 KAD00006 Keith Dawson 07-Mar-1983 

: 51 0050 1: Global edit of all modules. Updated module names, idents, 
; 26 0051 1! copyright dates. Changed require files to BLISS library. 
Se | et 1 i 

: 54 005 1 i- 
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Module Level Declarations 
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ZSBTTL ‘Module Level Declarations’ 


TABLE OF CONTENTS: 


INCLUDE FILES: 


LIBRARY 'NXPORT: reer ! XPORT Librar 
REQUIRE ‘REQ:RNODEF* ! RUNOFF variant definitions 
ZIF DSRPLUS ZTHEN 
beeen *REQ:DPLLIB'; ! DSRPLUS BLISS Library 
wee *REQ:DSRLIB'; ! DSR BLISS Library 
: 
} MACROS 
i 
EQUATED SYMBOLS: 
EXTERNAL LITERAL 
RINTES : UNSIGNED(8); 

' 
OWN STORAGE: 

PP_SCA : SH_R_SCA_BLOCK; ‘Used in PUSH_SCA, POP_SCA macros (defined in SCA.REQ). 


EXTERNAL REFERENCES: 


EXTERNAL 


MRA : REF FIXED STRING, 
SCA : SCA_DEFINTTION, 
TSF : TSF ~DEF INI TION; 


EXTERNAL ROUTINE 
ENDCHR, 
OUTNJ; 


_—— 


WN SO ODNOAUSWN —“OVOONAULSWIN—O0W 


ee eed ee ee cee a ee ed ee a ee ce ee ee ee ce ec ce ce ee ec ce a a cae cae ca ee ee ec cc ce ce ce ee ca ee ec a ee 


Be Se Be Se Se Be Se Se Se Be Se Se Fe Se Se Se Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Fe oe Se Se Fee Se Se Se Se Sse Se SeSeSseases 


NOQUESWN OO OONOUE WO 0OOn 


16- Se -1984 AX-11 Bliss-3 
Module Level Declarations 14- 8ep-1984 93; 87; if RUNOFF .SRC JOU 


GLOBAL ROUTINE OUTTXT (TEXT_PTR, TEXT_LENGTH, CENTERED) : NOVALUE = 
lee 
FUNCTIONAL DESCRIPTION: 
Outputs a generated Line of text in the ‘official’ way. 
This means that an MRA/TSF pair have to be allocated and set up. 
This routine is needed when there is no convenient MRA/TSF pair 
around that can be used for outputting text. 
FORMAL PARAMETERS: 
TEXT_PTR is a CHSPTR to the —— +d o centered and output. 
TEXT-LENGTH +s the Longes of t 
CENTERED is the page width Le eich the text should be centered. 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


oerae 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
D_MRA, 
HOLD tb-vse, VECTORCSCA_SIZEJ, 
: FIXED Pret Sizes.” 
TEN Tee : VECTORCTSF_ SIZE) 
tRenenber Location of current TSF 
= 


‘Set-up substitute T 
INCR TEMP TSF TO TSF S128 - 1 DO TEMP_TSFC.1] = 0; 


'Set aint é-bar seeeterser to space. 
i eCRAR = “ 


HOLD_ MRA = .MRA; 

'Set™ subst itu e MRA; 

FS MAX 1HECTERP VARA) = ='100; 
FS-INIT(TEMP_MRA); 
MRA = TEMP_ 


NNNNNAAARAA AA AANA MMA BE EE BB AANA AA AAD 
FUN AO ODNA UNE WN SO ODNAUN EWN OOD NOUS WN CO ODNAUE WOOO 


push” SCA before settin a new one. 
SCA; 'Save the S$ ved SCA bits. 


INCR I FROM 0 TO SCA_SIZE -1 DO HOLD_SCAC.1J = .SCAC.1); 
INCR I FROM 0 TO SCA_SAVE_START -1 DO SCAC.1] = 0; 


CGOOCOOSOOOOCOSOCOSOOCOCOOSOSOOSOSOOSOSSOOSOOOSCOSOSCOSCOOOOOCOOOOOOOODOOOOOOOOOO 


PROPIPOPOPOMINIPIPINIPOPIPUPRIMIPIMONIPONONIPOPONINIPONIPOPONUPOPUNIPOPONY 
ANNAN 
Wwr—o& w 


caked location of current MRA 


s2 
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NCR | Ae BCA.SAVE ENO +1 TO SCA_SIZE -1 DO SCAC.1] = 0; 
Sv 


p 
Fatmd 
ma 


BOK OVSIZO— CMO 


= 0; 
OTITLE = 0; 


S 
_ 


“vr > 
=—— non non 
bes 


SGOCGCCCOOOOOOCOOCOOOCoOoO 


OOOCoVoooooooowvowo 


ODONAUESWN “OV ONOULS WO 


PTR = .TEXT_PTR; 


INCR I FROM 1 TO .TEXT_LENGTH DO 
ENDCHR (CHSRCHAR_A (PTR)); 


'Center the text 
TSF_ADJUST = MAX ((.CENTERED - .TEXT_LENGTH)/2, 0); 
aoutput, the Line containing the centéred text. 


NN SN IIS SI SSSI SSS 
WN — CO OONAUSWN “OVD ONOUFSWN Oo 


uw 


'Restore original SCA 
INCR I FROM 0 TO SCA_SIZE = 1 DO SCAL.1] = .HOLD_SCALC.1); 


POP_SCA; 'Restore the SAVEd SCA bits. 


'Restore ort ginet MRA 
MRA = .HOLD_MRA; 


'Restore ortpinet TSF 
TSF = .HOLD_TSF; 


END; ‘End of OUTTXT 


SSSSPSLSSSESE 


con 


5 I 

§ SCA 
SCA 

3 SCA 
'Init 
SCA_F : 
SCA-R 
SCA_L 
SCA-S 6 = 1; 
SCA_F RUE; 
SCA_F TRUE; 
SCA_JUSTIFY = TRUE; 
SCA_CROCK = TRUE; 
SCA_WRD_PNTR = .FS_START (MRA); 
SCA-WRD-CPEND = RINTES; 

; 'Set change-bar character(s) to space. 
SCA_BAR_CHAR = 2C' '; 

; SCA_WRD_BAR_CHR = XC‘ '; 

| 


Be Se Se Se Ge Ge Fe Ge Se Se he Se Ge Oe BF Te Se Se FF Se Se Se SF Se SF SESH SESE SESE SESH Se Se Se Se Ss Ssese 
a a ak ed dk 2d sd = 8 = 8 = 8 = 8 a 8 8 


SOooooocoooooooooooooooo 


3 


«TITLE OUTTXT 
-IDENT \V04-000\ 


-PSECT SOWNS,NOEXE ,2 
00000 PP_SCA: .BLKB 48 


-EXTRN RINTES, MRA, SCA 
-EXTRN TSF, ENDCHR, OUTNJ 


-PSECT SCODES,NOWRT ,2 
03FC 00000 -ENTRY OUTTXT, Save R2,R3,R4,R5,R6,R7,RB,RI ; 0228 


H 14 
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Module Level Declarations 12-860=1 382 94:83:48 RUNOFF SRETOUSTXT BL 144 . (4) 
G EF 9€ 0 MOVAB MRA, RO : 
G EF 9E MOVAB TSF, RB : 
EF E 1 MOVAB PP SCA, R7 : 
6 G EF 1 MOVAB s¢ : 
b FD6C 3 MOVAB -660(SP), SP : 
4 D MOVL TSF, HOLO_TSF : 0265 
D 6 CLRL : 0267 
6640 D4 1$: CLRL Temp _TSFCqI : 
F9 50 é 3 B AOBLEQ #39,71, 1$ : 
6 9 F MOVAB TEMP_TSF, TSF 3 0268 
é D MOVL 1S R : 
1c OA D 0 MOVL #32. 28(RO) ; 9270 
5 p MOVL MRA. HOLD MRA : 027 
00a8 CE 64 8F 9A 00 MOVZBL #106, TEMP_MRA+8 : 0375 
OOAC CE p4 004 CLRL «TEMP. MRA+1 + 0276 
0OAO CE 0B0 CE 004 MOVAB TEMP"MRA+16, TEMP_MRA : 
OOAS CE OAO CE 00 00040 MOVL TEMPMRA, TEMP_MRA+4 : 
69 OOAO CE 9E 00054 MOVAB TEMP"MRA. MRA + 0277 
67 64 B86 D 0059 MOVL  @SCAT100, PP_SCA : 
04 A? 68 B6 DO 0005 MOVL  @SCA+104. PPTSCA+4 : 
08 A7 C B6 DO 0006 MOVL  @SCA+108, PPTSCA+ : 
¢ A7 60 B6 DO 0006 MOVL  @SCA+112, PPTSCA+1 : 
10 A? 74 B6 D 006¢ MOVL  @SCA+116, PPTSCA+16 : 
14 «A? 78 B6 DO 990 1 MOVL aSCA+120, PPTSCA+20 : 
18 «A? 7¢ B6 DO 00076 MOVL  @SCA+124, PPTSCA+24 : 
1c «OA? 0080 06 D6 00078 MOVL  a@SCA+1 g. PP~SCA+28 ; 
0 aA? 0084 D6 DO 00081 MOVL  aSCA+132, PPTSCA+32 : 
4 AZ 088 06 00 00087 MCVL  @SCA+136, PPTSCA+36 ; 
8 AZ 008C D6 D0 008 MOVL a@SCA+140. PPTSCA+40 : 
sf 0090 D6 v0 909 MOVL aSCAri44, PP~SCA+44 pe 
0114 CE40 6640 DO 00098 2$: MOVL SCACIJ, HOLD_SCACI) ; 
FI 50 0000005F i Fs O0A2 AOBLEQ 95, 1, 2$ Naeee 
6640 04 OOOAC 3$: Ls SCACI) ; 
9 50 18 F3 OOOAF AOBLEQ #24, 1, 3$ : 
50 2 DO 00083 VL #37 ; > 0285 
6640 D4 000B6 4$ CLRL scat ; 
FS 50 0000005F 8F F3 00089 AOBLEQ #95 I 4$ : 
B6 D4 9oci CLRL. aSCA+ 6 : 0 86 
0084 06 D4 Oc CLRL = @SCA#1 ; 9 8 
008C 06 D4 000C8 CLRL  aSCA+14 : 0288 
0000 ¢ 1 p0 Occ VL #1, _SCA+208 : 0291 
78 «Bb %6 F 9A 00001 movz7BL #150, ascari20 ; % 
4 6 D4 06 CLRL  aSCA+11 : 029 
7C ««B6 D D MOVL #1, @SCA+124 > 0294 
0094 C6 1D D MOVL #1. SCA+14 : 0295 
8 86 1 0 E MOVL #1, @SCA+104 F 96 
B6 1 0 £ MOVL #1. @SCAt] > 029 
B 1 D EA MOVL #1. a@SCA+l > 0298 
C 9 p H mOvL aMRA, SCA+248 : 0299 
118 «6 G BF 9A OO0F MOVZBL #RINTES, SCA+280 ; 
088 »D : D iz MOVL a3 ss estas 36 : 9 
114 D FF MOVL #32. SCA+27 ; 
04 AC D MOVL TEXf_PTR, PTR : 030 
3 p4 108 CLRL : : 0 
A 11 OO10A BRB $ ; 


Module Level Declarations 


7E 5 
00000000G_ EF 
1 ¢ 08 Q 
50 oc af 08 iA 
5 
$8 Al 
00000000G_ EF 
664 oils CE4 
F1 50 OO0000SF 8 
64 B86 6 
68 66 046 =A 
6C B86 08 A 
70 = BB of A 
74 ~=6B6 1 A 
78 86 14 =2OA 
7C = BB 18 «OA 
0080 06 1¢ OA 
0084 06 0 A 
0088 06 » 
008C 06 8 A 
0090 »D ees 
6 5 
68 5 
; Routine Size: 398 bytes, Routine Base: S$CODE$S + 
3 $00 O3s7 
: 201 328 1 END 
3; @ee 0329 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes 
: SONS 48 NOVEC, WRT, 
; SCODES 398 NOVEC, *NOWRT, 


Library Statistics 


Total 
590 


File 
~$255$DUA28: CSYSLIBIXPORT.L32;1 


14 
16- $ep-1984 AxX-11 Bliss-32 V4.0-74 
a ep-1 . ° PY 
14S 138e 9}: $3; }§ RUNOFF .SRCJOUTTXT.BLI 

; 4 IBF 5$: atte y lar ot Poe (SP) 
f a 116 6$: AOBLEQ TEXT_L NeTH, 1, 5$ 

D 118 MOVL TSF,” 

C3 0011 SUBL3 «TEXT LENGTH, CENTERED, RO 

+) 1 DIVL #2, R 

1 BGEQ 7 

D4 129 CLRL R 

DO 00128 7$: OVL RO, 40(R1) 

FB OO12F CALLS #0, OUTNJ 

D4 001 CLRL I 

D 1 8$ MOVL Ok D ~fCAGli. SCACII 
F OF 13 AOBLEQ a98 
7 00 00147 MOVL PP_ &ch’ aSCA+100 
7 OD 14 MOVL PP“SCA+4, @SCA+104 
7 OD 15 MOVL Pp Scare aSCa+108 
7 0 O15 MOVL PPTSCA+12, aSCA+112 
7 DO OO15SA MOVL amet g a@SCA+116 
7 OD FH MOVL PP-SCA+20, a@SCA+120 
- 2 164 MOVL PP-SCA+24, @SCA+124 
7 DO 00169 MOVL PP-SCA+28, aSCA+128 
7 OD 0195 MOVL PP-SCA+32, @SCA+1352 
7 DbO 00175 MOVL PP_SCA+36, @SCA+136 
7 00 00178 MOVL PP-SCA+40, @SCA+140 
7 8 90181 MOVL PP-SCA+44, @SCA+144 
5 00 00187 MOVL HOCD_MRA, MRA 
4 bd0 OO15A MOVL HOLD-TSF, TSF 

04 0018D RET 
0000 

‘End of module 
Attributes 

RD ,NOEXE,NOSHR, LCL, REL, CON .NOPIC »AL 1GN(3) 

RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Symbols -------- Pages Processing 
Loaded Percent Mapped Time 


0 0 252 


00:00.1 


3; Run + POE 
$ Elapsed. Time: 0:26.9 
3 Lines/CPU Min: 16 

3 Lexemes/CPU-Min: 16406 

3 poner seeds 94 pages 

3 a 


; Compi ion Complete 


TTXT 1b-be Sep-1 AX-11 Bliss-32 V4.0-74 Page 8 
v04-000 Module Level Declarations sti 9}: 87: }é RUNOFF .SRCJOUTTXT.BLI; . (4) 
; ~$255SDUA28:CRUNOFF .SRCIDSRLIB.L32;1 1248 53 86 00:00.3 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:OUTTXT/OBJ=OBJ$:OUTTXT MSRC$:OUTTXT/UPDATE=(ENH$:OUTTXT) 

; Size: 398 code + 48 data bytes 
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